../acm_ae6/getalpha.F